home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK2.toast / Development Kits (Disc 2) / ScriptX / Draggable ScriptX Folders / utils / DTK / Examples / DirExmp.dir / 00021.ls < prev    next >
Encoding:
Text File  |  1995-12-14  |  269 b   |  12 lines

  1. on exitFrame
  2.   set myList to [3, 4, 5, 6, 7]
  3.   set myHilites to [39, 41, 43, 45, 47]
  4.   repeat with i = 1 to 5
  5.     if rollOver(getAt(myList, i)) then
  6.       hiliteSprite(getAt(myList, i), getAt(myHilites, i))
  7.       exit repeat
  8.     end if
  9.   end repeat
  10.   go(the frame)
  11. end
  12.